home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / Battle of Britain 1 ••••• / Battle of Britain 1 еееее / stack.txt < prev    next >
Text File  |  1990-08-26  |  5KB  |  157 lines
  1. -- stack: in
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x0 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 2
  11. -- first background id: 3234
  12. -- card count: 14
  13. -- first card id: 3805
  14. -- list block id: 7379
  15. -- print block id: 4363
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 266880 bytes
  21. -- stack block size: 4608 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x01228000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on OpenStack
  69.   go to card 1
  70.   global savelevel
  71.   get the userLevel
  72.   put it into saveLevel
  73.   set the userlevel to 5
  74.   hide menuBar
  75.   hide message window
  76.   hide tool window
  77.   hide pattern window
  78.   put false into menuBar
  79.   CHOOSE BROWSE TOOL
  80.   answer "Resume Saved Game?" with "Yes" or "New Game"
  81.   if it contains "Yes" then
  82.     resumeGame
  83.     go to card "Map"
  84.   end if
  85.   if it contains "New" then newGame
  86. end openStack
  87.  
  88. on saveGame
  89.   global effort,raidNum,bbtime,bbDate,JUSTVISITING,low,med,high,reset
  90.   GLOBAL POINTS,weather,OPENBASE,landtime
  91.   put effort & "," & raidNum & "," & bbtime & "," & bbDate & "," & justVisiting & "," & low & "," & med & "," & high & "," & reset & "," & weather & "," & OPENBASE & "," & landtime into card field "globals" of card "Map"
  92. end SaveGame
  93.  
  94. on resumeGame
  95.   global effort,raidNum,bbtime,bbDate,JUSTVISITING,high,med,low,reset
  96.   global openbase,landtime
  97.   put item 1 of card field "globals" of card "Map" into effort
  98.   put item 2 of card field "globals" of card "Map" into raidNum
  99.   put item 3 of card field "globals" of card "Map" into bbTime
  100.   put item 4 of card field "globals" of card "Map" into bbDate
  101.   put item 5 of card field "globals" of card "Map" into justVisiting
  102.   put item 6 of card field "globals" of card "Map" into low
  103.   put item 7 of card field "globals" of card "Map" into med
  104.   put item 8 of card field "globals" of card "Map" into high
  105.   put item 9 of card field "globals" of card "Map" into reset
  106.   put item 10 of card field "globals" of card "Map" into weather
  107.   put item 11 of card field "globals" of card "Map" into openbase
  108.   put item 12 of card field "globals" of card "Map" into landtime
  109.  
  110. end resumeGame
  111. on NewGame
  112.   global effort,raidNum,bbtime,bbDate,JUSTVISITING,reset
  113.   GLOBAL high,med,low,weather
  114.   set the cursor to 4
  115.   show card field "setup" of card 1
  116.   put "CLEAR" into weather
  117.   put weather into card field "weather" of card "Map"
  118.   put "normal" into effort
  119.   put "CITIES.INDUSTRIES" into low
  120.   put "AIRBASES" into med
  121.   put "PORTS. RADARS" into high
  122.   put "AUG 10 1940" into card field "bbDate" of card "Map"
  123.   put "AUG 10 1940" into bbDate
  124.   put "0600" into card field "bbtime" of card "Map"
  125.   put 600 into bbtime
  126.   put "0" into card field "BritScore" of card "map"
  127.   put "0" into card field "gerScore" of card "map"
  128.   put 0 into raidNum
  129.   put "INTELLIGENCE ESTIMATES OF TODAYS LIKELY TARGETS FOLLOWS: " & "NORMAL ACTIVITY OVER PORTS & RADARS. SECONDARY TARGETS: AIRBASES." into line 3 of card field "ultra" of card "map"
  130.   set hilite of button "go" of card "Map" to false
  131.   set hilite of button "rdf" of card "Map" to false
  132.   repeat with i = 1 to 6
  133.     set icon of button id i of card "map" to 27637
  134.   end repeat
  135.   hide button id 42 of card "map"
  136.   hide button id 47 of card "map"
  137.   SET LOCKSCREEN TO TRUE
  138.   PUT 1 INTO JUSTVISITING
  139.   put 1 into reset
  140.   REPEAT WITH X =7 TO 12
  141.     GO TO CARD X
  142.     go back
  143.   END REPEAT
  144.   put empty into justvisiting
  145.   put empty into reset
  146.   GO TO CARD 1
  147.   SET LOCKSCREEN TO FALSE
  148.   hide card field "setup" of card 1
  149. end newGame
  150. on closeStack
  151.   global savelevel
  152.   put savelevel into userlevel
  153.   show menuBar
  154. end closeStack
  155.  
  156.  
  157.